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14-Sep-1984 VMSLIB.SR 
ZTITLE "SCRSINPUT = Input routines for the screen package’ 
MODULE SCRSINPUT 
‘td = 'v04-000' ! File: SCRINPUT.B32 Edit: PLL1001 
= 
BEGIN 


lnuesennnseneessnsnssnsnssnnnesnseesnscensseeesseseneenenseeneneeneneersees 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ft noe SOF TWARE af FURNISHED reer A LICENSE AND 
!® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH 
SION I$ 

wit 


® 
® 
+ 
® 
® 
* 
® 
® 
DE AVAILABLE TOANY 
! « 
is TRANSFERRED. . 
® 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. : 
® 

® 

® 

® 

* 

® 


i DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
!® SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


Lee RRR AREER AAR ARERR EEE 
' 


++ 
FACILITY: Screen Management 
ABSTRACT: 


This module contains routines which perform input from the screen 
via keyboard or keypad. 


' 
i 
i 
i 
i 
i 
i 
' 
ENVIRONMENT: User mode, Shared Library routines. 
AUTHOR: P. Levesque, CREATION DATE: 18-Oct-1982 
MODIFIED BY: 

i 1-001 = Original. PLL 18-Oct-1982 


a a a a a td a = = a = 2 = = = ot = = 8 a a 2 2 8 
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SCRSINPUT = Input routines for the screen packa 18 te 1984 0 AX-11 Bliss-32 V4.0-74 
co = = 3 3 = s = Ve 
Declarations 1228687138 96:30:28 VMSLIB SRCISCRINPUY 04551 
re ! XSBTTL ‘Declarations’ 
! SWITCHES: 
1 . 
Ee eset 
Bil ne 
0087 i : TABLE OF CONTENTS 
$89 1 . 
060 1 
Oee } FORWARD ROUTINE 
006 1 SCRSGET_SCREEN; ! 
+a 3 = Get text from screen 
0065 1! 
94 ! The following is defined via a GLOBAL BIND. 
0068 1 | LIBSGET_SCREEN = SCRSGET_SCREEN 
0069 1! = — 
Baas 1 
$073 i INCLUDE FILES 
$098 1! 
0074 1 
0075 1 REQUIRE 'SRC$:SCRPROLOG'; ! defines psects, macros, tcb, 
prey ' ! web, & terminal symbols 
0152 1 | EXTERNAL REFERENCES 
6188 1! 
0154 1 
Bie 1 EXTERNAL ROUTINE 
136 1 SCRSSGET_TYPE_R3 : GET_TYPE_LINK, ! Get device type 
Bie : LIBSGET_YNPUT; ! Get a Line of text from SYSS$INPUT. 
139 1 EXTERNAL 
160 1 SCRSL_FLINKHEAD, ! Head of chain of TCB's 
he : SCRSL_CUROUTPUT; ! Pointer to current TCB 
gies 1 !<BLF/PAGE> 
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SCRSINPUT SCRSINPUT = Input routines for the screen packa 16-Sep-1984 02:30:2 AX-11 Bliss-32 V4.0-74 Page 3 
vo02000 LIBSGET SCREEN - Get Text from Screen , 13-88-1982 96:30:23 VASLIB SREISCRINPUY, 3551 . (3) 
 % 164 1 XSBTTL "LIBSGET SCREEN = Get Text from Screen’ : 
3 4 165 1 ! GLOBAL ROUTINE LIBSGET_SCREEN ( ‘ 
; 4 198 1! INPUT_TEXT : REF BLOCK F-BYTE ° ; 
: 95 167 1! PROMPT STR : REF BLOCK [,BYTE ‘ 
i 96 168 1 | OUT_LEN =: REF VECTOR C,woRDS ; 
xe 18 1! ; 
a, 170 1 !+4 ; 
3 106 17) : } FUNCTIONAL DESCRIPTION: : 
: 101 158 1! This routine accepts input from the terminal into a : 
3 136 17%4~«21«5 user-specified buffer. An optional etring may be given to be : 
. y lee Ee used for a prompt. If a third geraneter s present, it will : 
3 13e 178 ! be set to the length of the string read. : 
3 \3 178 : } CALLING SEQUENCE: ; 
; 108 190 1! ret_status.wic.v = LIBSGET_SCREEN (INPUT TEXT. wt.dx : 
; 109 181 1! » PROMPT oth Pe Ge : 
: 110 13 1! /OUT_LEN.wwu.rJ] ) 3 
3; 493 1 1! ; 
3 \\g 184 1 ! FORMAL PARAMETERS: : 
s 1 0185 1! 3 
3 18 BiS9 : } INPUT_TEXT.wt.dx Address of buffer descriptor. : 
g 1 0188 1! PROMPT _STR.rt.dx Optional. Address of descriptor of : 
: i 8188 : prompt string. : 
: 13} ot) ' H OUT_LEN.wwu.r Optional. Length of input string read. : 
3 131 $198 1 ! IMPLICIT INPUTS: 3 
524 ¢ Bie 1! ; 
Se 195 1! NONE 3 
> 124 B138 - 2 3 
s te 197 1°! IMPLICIT OUTPUTS: Fy 
; 126 198 1! 3 
3 127 199 1! NONE 3 
; vee 00 1! : 
3 : 4 4 ! COMPLETION STATUS: : 
3 133 08 1 } SS$_NORMAL Normal successful completion . 
7 4 05 1 ! SIDE EFFECTS: 
3; 134 Bg 1! 
3 135 8 1! NONE 
ey 8 1 !-- 
RS 09 1 
3; 138 10 1 !+¢ 
: 139 11 1 ! Equate to SCR$ entry point. 
eh | 
: 146 14 1 GLOBAL BIND ROUTINE LIBSGET_SCREEN = SCRSGET_SCREEN ; 
; (14 0215 1 !<BLF/PAGE> 
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y60~000 RSGE “SCREEN = Get Text from Screen . 19280871382 96:20:28 VMSLIB’ SREISCRINPUT 84551 . (4) 
; XSBTTL 'SCRSGET_SCREEN = Get Text from Screen’ 
GLOBAL ROUTINE SCRSGET_SCREEN ( 

INPUT_TEXT : REF BLOCK fF BYTE). 

PROMPT STR : REF BLOCK C,BYTE 

OUT_LER =: REF VecTOR C,woRDS 


FUNCTIONAL DESCRIPTION: 
This routine accepts input from the terminal into a 
user-specified buffer. An optional serine may be given to be 
used for a prenet. If a third parameter is present, it will 
be set to the length of the string read. 

CALLING SEQUENCE: 


ret_status.wic.v = SCRSGET_SCREEN (INPUT TS*T aut. On 


OUT LER rid) 
,/OUT_LEN.wwu.rJ]) 
FORMAL PARAMETERS: 

INPUT_TEXT.wt.dx Address of buffer descriptor. 

PROMPT_STR.rt.dx Optional. Address of descriptor of 

prompt string. 

OUT_LEN.wwu.r Optional. Length of input string read. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


COMPLETION STATUS: 
Statuses returned by LIBSGET_INPUT. 
SIDE EFFECTS: | 
} 
| 
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NONE 


BEGIN 
Sull tie 
CALLG ; 


LOCAL 
TCB : REF BLOCK C, BYTE) , ' Current terminal control block 
' Needed by $SCRSGET_TYPE 
TERM_TYPE, ! dummy arg - device type 
STATOS; 
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qu 


REEN = Get Text from Screen 
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; Routine Size: 


- Input routines for the screen packa 1b-se 30071382 4 9: 3: 2 og $85 38 


STATUS = SCRSSGET_TYPE_R3 (SCRSC_GET pSCREEN: oT [f8. TERM_TYPE) ; 
C éal foreign terminal 
i code Wy! necessary 


if -TCB CSCRSB_TYPE] NEQ VTFOREIGN 


—— ( CALLG ( .AP, LIBSGET_INPUT)) 
RETURN (.STATUS); ! foreign terminal handler does its 
i own input 


END; ! End of routine SCRSGET_SCREEN 


-TITLE SCRSINPUT SCRSINPUT - Input routines for the sc 


reen packa 
-IDENT \V04-000\ 


.EXTRN SCRSSGET TYPE_R3 

-EXTRN LIBSGET INPUT; SCRSL_FLINKHEAD 

-EXTRN SCRSL_COROUTPUT 

.PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
00 gENTRY SCRSGET_SCREEN, Save R2,R3 
a5 JSB SCASSGET PE _R3 
F 
1 


50 

000000006 
4 OA Q(T 
$ 
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000000006 00 P), LIBSGET_INPUT 


Routine Base: _LIBSCODE + 0000 


1 !<BLF/PAGE> 


vourd00”. SERSGET-SCREEN'S Get Tent trom Seresn ten Packs 1foseo-t9g4 3:32:23 | EUMsuie sncdsckinpus.035;1 Pew? of 
: 318 0388 } END ! End of module LIBSSCREEN 
: 219 3 0 ELUDOM 
LIBSGET_SCREEN== SCRSGET_SCREEN 
; PSECT SUMMARY 
3 Name Bytes Attributes 
; _LIBSCODE 25 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
‘ Library Statistics 
Po ee eee, Soe | een me SyRROlg saeceese Pages Processing 
: File Total Loaded Percent Mapped Time 
 $BSBEBUARRSESNSL IB STARE eid «=| 7E8 2 Sates 80:00:1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:SCRINPUT/OBJ=OBJ$:SCRINPUT MSRC$:SCRINPUT/UPDATE=(ENHS$: SCRINPUT) 


Size: 25 code + 0 data bytes 
Run Time :03.5 
Elapsed Time: 0:04.5 


Lines/CPU Min: 49 
Lexemes/CPU-Min: 69 
poneey Used: 36 pages 
Compilation Complete 
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